/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / regexp-opt.elc.z / regexp-opt.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 30 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:06 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 72 65 67 65 78 70 | 2d 6f 70 74 2e 65 6c 0a |s/regexp|-opt.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 72 65 67 |    (err|or "`reg|
|000001f0| 65 78 70 2d 6f 70 74 2e | 65 6c 27 20 77 61 73 20 |exp-opt.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 23 40 37 34 30 20 |t nil)).|..#@740 |
|00000260| 52 65 74 75 72 6e 20 61 | 20 72 65 67 65 78 70 20 |Return a| regexp |
|00000270| 74 6f 20 6d 61 74 63 68 | 20 61 20 73 74 72 69 6e |to match| a strin|
|00000280| 67 20 69 6e 20 53 54 52 | 49 4e 47 53 2e 0a 45 61 |g in STR|INGS..Ea|
|00000290| 63 68 20 73 74 72 69 6e | 67 20 73 68 6f 75 6c 64 |ch strin|g should|
|000002a0| 20 62 65 20 75 6e 69 71 | 75 65 20 69 6e 20 53 54 | be uniq|ue in ST|
|000002b0| 52 49 4e 47 53 20 61 6e | 64 20 73 68 6f 75 6c 64 |RINGS an|d should|
|000002c0| 20 6e 6f 74 20 63 6f 6e | 74 61 69 6e 20 61 6e 79 | not con|tain any|
|000002d0| 20 72 65 67 65 78 70 73 | 2c 0a 71 75 6f 74 65 64 | regexps|,.quoted|
|000002e0| 20 6f 72 20 6e 6f 74 2e | 20 49 66 20 6f 70 74 69 | or not.| If opti|
|000002f0| 6f 6e 61 6c 20 50 41 52 | 45 4e 20 69 73 20 6e 6f |onal PAR|EN is no|
|00000300| 6e 2d 6e 69 6c 2c 20 65 | 6e 73 75 72 65 20 74 68 |n-nil, e|nsure th|
|00000310| 61 74 20 74 68 65 20 72 | 65 74 75 72 6e 65 64 0a |at the r|eturned.|
|00000320| 72 65 67 65 78 70 20 69 | 73 20 65 6e 63 6c 6f 73 |regexp i|s enclos|
|00000330| 65 64 20 62 79 20 61 74 | 20 6c 65 61 73 74 20 6f |ed by at| least o|
|00000340| 6e 65 20 72 65 67 65 78 | 70 20 6d 61 74 63 68 20 |ne regex|p match |
|00000350| 67 72 6f 75 70 69 6e 67 | 20 63 6f 6e 73 74 72 75 |grouping| constru|
|00000360| 63 74 2e 20 20 49 66 0a | 6f 70 74 69 6f 6e 61 6c |ct.  If.|optional|
|00000370| 20 4e 4f 4e 2d 53 48 59 | 20 69 73 20 6e 6f 6e 20 | NON-SHY| is non |
|00000380| 6e 69 6c 2c 20 74 68 65 | 20 69 6e 6e 65 72 20 67 |nil, the| inner g|
|00000390| 72 6f 75 70 69 6e 67 73 | 20 77 69 6c 6c 20 75 73 |roupings| will us|
|000003a0| 65 20 22 5c 5c 28 20 5c | 5c 29 22 20 67 72 6f 75 |e "\\( \|\)" grou|
|000003b0| 70 69 6e 67 2c 0a 72 61 | 74 68 65 72 20 74 68 61 |ping,.ra|ther tha|
|000003c0| 6e 20 74 68 65 20 64 65 | 66 61 75 6c 74 20 22 5c |n the de|fault "\|
|000003d0| 5c 28 3f 3a 20 5c 5c 29 | 22 20 27 73 68 79 27 2c |\(?: \\)|" 'shy',|
|000003e0| 20 6f 72 20 6e 6f 6e 2d | 6d 61 74 63 68 2d 63 61 | or non-|match-ca|
|000003f0| 70 74 75 72 69 6e 67 20 | 67 72 6f 75 70 73 2e 0a |pturing |groups..|
|00000400| 54 68 65 20 72 65 74 75 | 72 6e 65 64 20 72 65 67 |The retu|rned reg|
|00000410| 65 78 70 20 69 73 20 74 | 79 70 69 63 61 6c 6c 79 |exp is t|ypically|
|00000420| 20 6d 6f 72 65 20 65 66 | 66 69 63 69 65 6e 74 20 | more ef|ficient |
|00000430| 74 68 61 6e 20 74 68 65 | 20 65 71 75 69 76 61 6c |than the| equival|
|00000440| 65 6e 74 20 72 65 67 65 | 78 70 3a 0a 0a 20 28 6c |ent rege|xp:.. (l|
|00000450| 65 74 20 28 28 6f 70 65 | 6e 2d 70 61 72 65 6e 20 |et ((ope|n-paren |
|00000460| 28 69 66 20 50 41 52 45 | 4e 20 22 5c 5c 28 22 20 |(if PARE|N "\\(" |
|00000470| 22 22 29 29 20 28 63 6c | 6f 73 65 2d 70 61 72 65 |"")) (cl|ose-pare|
|00000480| 6e 20 28 69 66 20 50 41 | 52 45 4e 20 22 5c 5c 29 |n (if PA|REN "\\)|
|00000490| 22 20 22 22 29 29 29 0a | 20 20 20 28 63 6f 6e 63 |" ""))).|   (conc|
|000004a0| 61 74 20 6f 70 65 6e 2d | 70 61 72 65 6e 20 28 6d |at open-|paren (m|
|000004b0| 61 70 63 6f 6e 63 61 74 | 20 27 72 65 67 65 78 70 |apconcat| 'regexp|
|000004c0| 2d 71 75 6f 74 65 20 53 | 54 52 49 4e 47 53 20 22 |-quote S|TRINGS "|
|000004d0| 5c 5c 7c 22 29 20 63 6c | 6f 73 65 2d 70 61 72 65 |\\|") cl|ose-pare|
|000004e0| 6e 29 29 0a 0a 62 75 74 | 20 74 79 70 69 63 61 6c |n))..but| typical|
|000004f0| 6c 79 20 63 6f 6e 74 61 | 69 6e 73 20 6d 6f 72 65 |ly conta|ins more|
|00000500| 20 72 65 67 65 78 70 20 | 67 72 6f 75 70 69 6e 67 | regexp |grouping|
|00000510| 20 63 6f 6e 73 74 72 75 | 63 74 73 2e 0a 55 73 65 | constru|cts..Use|
|00000520| 20 60 72 65 67 65 78 70 | 2d 6f 70 74 2d 64 65 70 | `regexp|-opt-dep|
|00000530| 74 68 27 20 74 6f 20 63 | 6f 75 6e 74 20 74 68 65 |th' to c|ount the|
|00000540| 6d 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |m...(def|alias 'r|
|00000550| 65 67 65 78 70 2d 6f 70 | 74 20 23 5b 28 73 74 72 |egexp-op|t #[(str|
|00000560| 69 6e 67 73 20 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |ings &op|tional p|
|00000570| 61 72 65 6e 20 6e 6f 6e | 2d 73 68 79 29 20 22 c0 |aren non|-shy) ".|
|00000580| 20 19 c2 8e c3 c4 1d 1e | 06 c7 c8 c9 0e 5c 6e 21 | .......|.....\n!|
|00000590| cb 5c 22 0e 0c c4 0e 0d | 24 2c 87 22 20 5b 6d 61 |.\".....|$,." [ma|
|000005a0| 74 63 68 2d 64 61 74 61 | 20 6d 61 74 63 68 2d 64 |tch-data| match-d|
|000005b0| 61 74 61 20 28 28 73 74 | 6f 72 65 2d 6d 61 74 63 |ata ((st|ore-matc|
|000005c0| 68 2d 64 61 74 61 20 6d | 61 74 63 68 2d 64 61 74 |h-data m|atch-dat|
|000005d0| 61 29 29 20 31 30 34 38 | 35 37 36 20 6e 69 6c 20 |a)) 1048|576 nil |
|000005e0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 69 67 6e 6f 72 |completi|on-ignor|
|000005f0| 65 2d 63 61 73 65 20 6d | 61 78 2d 6c 69 73 70 2d |e-case m|ax-lisp-|
|00000600| 65 76 61 6c 2d 64 65 70 | 74 68 20 72 65 67 65 78 |eval-dep|th regex|
|00000610| 70 2d 6f 70 74 2d 67 72 | 6f 75 70 20 73 6f 72 74 |p-opt-gr|oup sort|
|00000620| 20 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 20 73 | copy-se|quence s|
|00000630| 74 72 69 6e 67 73 20 73 | 74 72 69 6e 67 2d 6c 65 |trings s|tring-le|
|00000640| 73 73 70 20 70 61 72 65 | 6e 20 6e 6f 6e 2d 73 68 |ssp pare|n non-sh|
|00000650| 79 5d 20 35 20 28 23 24 | 20 2e 20 36 30 38 29 5d |y] 5 (#$| . 608)]|
|00000660| 29 0a 23 40 32 33 34 20 | 52 65 74 75 72 6e 20 74 |).#@234 |Return t|
|00000670| 68 65 20 64 65 70 74 68 | 20 6f 66 20 52 45 47 45 |he depth| of REGE|
|00000680| 58 50 2e 0a 54 68 69 73 | 20 6d 65 61 6e 73 20 74 |XP..This| means t|
|00000690| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 72 65 67 |he numbe|r of reg|
|000006a0| 65 78 70 20 67 72 6f 75 | 70 69 6e 67 20 63 6f 6e |exp grou|ping con|
|000006b0| 73 74 72 75 63 74 73 20 | 28 70 61 72 65 6e 74 68 |structs |(parenth|
|000006c0| 65 73 69 73 65 64 20 65 | 78 70 72 65 73 73 69 6f |esised e|xpressio|
|000006d0| 6e 73 29 0a 69 6e 20 52 | 45 47 45 58 50 2c 20 6e |ns).in R|EGEXP, n|
|000006e0| 6f 74 20 63 6f 75 6e 74 | 69 6e 67 20 74 68 65 20 |ot count|ing the |
|000006f0| 22 5c 5c 28 3f 3a 20 5c | 5c 29 22 20 6e 6f 6e 2d |"\\(?: \|\)" non-|
|00000700| 6d 61 74 63 68 2d 63 61 | 70 74 75 72 69 6e 67 20 |match-ca|pturing |
|00000710| 67 72 6f 75 70 73 20 75 | 6e 6c 65 73 73 0a 43 4f |groups u|nless.CO|
|00000720| 55 4e 54 2d 53 48 59 2d | 47 52 4f 55 50 53 2d 54 |UNT-SHY-|GROUPS-T|
|00000730| 4f 4f 20 69 73 20 6e 6f | 6e 2d 6e 69 6c 2e 0a 53 |OO is no|n-nil..S|
|00000740| 65 65 20 60 72 65 67 65 | 78 70 2d 6f 70 74 27 2e |ee `rege|xp-opt'.|
|00000750| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |..(defal|ias 'reg|
|00000760| 65 78 70 2d 6f 70 74 2d | 64 65 70 74 68 20 23 5b |exp-opt-|depth #[|
|00000770| 28 72 65 67 65 78 70 20 | 26 6f 70 74 69 6f 6e 61 |(regexp |&optiona|
|00000780| 6c 20 63 6f 75 6e 74 2d | 73 68 79 2d 67 72 6f 75 |l count-|shy-grou|
|00000790| 70 73 2d 74 6f 6f 29 20 | 22 c0 20 19 c2 8e c3 0c |ps-too) |". .....|
|000007a0| c5 5c 22 88 0c 47 53 c6 | c7 1e 08 1e 09 1e 5c 6e |.\"..GS.|......\n|
|000007b0| c3 cb 0c 0e 08 23 ab 9d | c6 95 16 08 0e 0c ac 8e |.....#..|........|
|000007c0| 0c 0e 08 89 cd 5c 5c 0e | 5c 6e 5e 4f ce 98 ac 62 |.....\\.|\n^O...b|
|000007d0| 0e 09 54 16 09 aa 5b 0e | 09 2d 87 22 20 5b 6d 61 |..T...[.|.-." [ma|
|000007e0| 74 63 68 2d 64 61 74 61 | 20 6d 61 74 63 68 2d 64 |tch-data| match-d|
|000007f0| 61 74 61 20 28 28 73 74 | 6f 72 65 2d 6d 61 74 63 |ata ((st|ore-matc|
|00000800| 68 2d 64 61 74 61 20 6d | 61 74 63 68 2d 64 61 74 |h-data m|atch-dat|
|00000810| 61 29 29 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |a)) stri|ng-match|
|00000820| 20 72 65 67 65 78 70 20 | 22 22 20 30 20 6e 69 6c | regexp |"" 0 nil|
|00000830| 20 73 74 61 72 74 20 63 | 6f 75 6e 74 20 6d 61 78 | start c|ount max|
|00000840| 20 22 5c 5c 5c 5c 28 22 | 20 63 6f 75 6e 74 2d 73 | "\\\\("| count-s|
|00000850| 68 79 2d 67 72 6f 75 70 | 73 2d 74 6f 6f 20 32 20 |hy-group|s-too 2 |
|00000860| 22 3f 3a 22 5d 20 34 20 | 28 23 24 20 2e 20 31 36 |"?:"] 4 |(#$ . 16|
|00000870| 34 30 29 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |40)]).(b|yte-code|
|00000880| 20 22 c0 c1 21 ac 85 c2 | c1 c3 5c 22 88 c0 87 22 | "..!...|..\"..."|
|00000890| 20 5b 66 62 6f 75 6e 64 | 70 20 6d 61 6b 65 2d 62 | [fbound|p make-b|
|000008a0| 6f 6f 6c 2d 76 65 63 74 | 6f 72 20 64 65 66 61 6c |ool-vect|or defal|
|000008b0| 69 61 73 20 6d 61 6b 65 | 2d 76 65 63 74 6f 72 5d |ias make|-vector]|
|000008c0| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 | 3).(def|alias 'r|
|000008d0| 65 67 65 78 70 2d 6f 70 | 74 2d 67 72 6f 75 70 20 |egexp-op|t-group |
|000008e0| 23 5b 28 73 74 72 69 6e | 67 73 20 26 6f 70 74 69 |#[(strin|gs &opti|
|000008f0| 6f 6e 61 6c 20 70 61 72 | 65 6e 20 6c 61 78 20 6e |onal par|en lax n|
|00000900| 6f 6e 2d 73 68 79 29 20 | 22 08 ab 86 09 ab 83 c2 |on-shy) |".......|
|00000910| aa 87 08 ab 83 c3 aa 81 | c4 1d 08 ab 83 c6 aa 81 |........|........|
|00000920| c4 1e 07 0e 08 ab 83 c4 | aa 81 0d 1e 09 0e 08 ab |........|........|
|00000930| 83 c4 aa 82 0e 07 1e 5c | 6e 0e 0b 47 cc 55 ab a1 |.......\|n..G.U..|
|00000940| 0e 0b 40 47 cc 55 ab 8d | 0e 09 cd 0e 0b 40 21 0e |..@G.U..|.....@!.|
|00000950| 5c 6e 51 82 1f 01 0d cd | 0e 0b 40 21 0e 07 51 82 |\nQ.....|..@!..Q.|
|00000960| 1f 01 0e 0b 40 47 ce 55 | ab 91 0e 09 cf 0e 0b 41 |....@G.U|.......A|
|00000970| d0 89 09 24 d1 0e 5c 6e | 52 82 1f 01 0e 0b 47 d2 |...$..\n|R.....G.|
|00000980| d3 d4 d5 0e 0b 5c 22 5c | 22 55 ab 8c 0e 09 d6 0e |.....\"\|"U......|
|00000990| 0b 21 0e 5c 6e 51 82 1f | 01 d7 c4 d4 d8 0e 0b 5c |.!.\nQ..|.......\|
|000009a0| 22 5c 22 d9 1e 1a db c4 | d4 d8 0e 0b 5c 22 5c 22 |"\".....|....\"\"|
|000009b0| 29 1e 1c 89 1e 1d 47 ce | 56 ab 9e 0e 1d 47 1e 15 |).....G.|V....G..|
|000009c0| d4 de 0e 0b 5c 22 1e 1f | 0d cd 0e 1d 21 cf 0e 1f |....\"..|....!...|
|000009d0| d0 89 09 24 0e 07 52 2a | aa d8 0e 1c 47 cc 56 ab |...$..R*|....G.V.|
|000009e0| a2 e0 1e 1a db c4 d4 d8 | 0e 0b 5c 22 5c 22 29 1e |........|..\"\").|
|000009f0| 21 0d cf 0e 21 e2 89 09 | 24 e3 d6 0e 1c 21 0e 07 |!...!...|$....!..|
|00000a00| b0 05 29 aa af 0e 0b 40 | ce cc 4f 1e 24 db 0e 24 |..)....@|..O.$..$|
|00000a10| d4 d8 0e 0b 5c 22 5c 22 | 89 1e 25 47 0e 0b 9b 1e |....\"\"|..%G....|
|00000a20| 26 0d cf 0e 25 e2 89 09 | 24 e3 cf 0e 26 e2 89 09 |&...%...|$...&...|
|00000a30| 24 0e 07 b0 05 2b 2a 2c | 87 22 20 5b 70 61 72 65 |$....+*,|." [pare|
|00000a40| 6e 20 6e 6f 6e 2d 73 68 | 79 20 22 5c 5c 28 22 20 |n non-sh|y "\\(" |
|00000a50| 22 5c 5c 28 3f 3a 22 20 | 22 22 20 6f 70 65 6e 2d |"\\(?:" |"" open-|
|00000a60| 67 72 6f 75 70 20 22 5c | 5c 29 22 20 63 6c 6f 73 |group "\|\)" clos|
|00000a70| 65 2d 67 72 6f 75 70 20 | 6c 61 78 20 6f 70 65 6e |e-group |lax open|
|00000a80| 2d 63 68 61 72 73 65 74 | 20 63 6c 6f 73 65 2d 63 |-charset| close-c|
|00000a90| 68 61 72 73 65 74 20 73 | 74 72 69 6e 67 73 20 31 |harset s|trings 1|
|00000aa0| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 30 20 | regexp-|quote 0 |
|00000ab0| 72 65 67 65 78 70 2d 6f | 70 74 2d 67 72 6f 75 70 |regexp-o|pt-group|
|00000ac0| 20 74 20 22 3f 22 20 61 | 70 70 6c 79 20 2b 20 6d | t "?" a|pply + m|
|00000ad0| 61 70 63 61 72 20 6c 65 | 6e 67 74 68 20 72 65 67 |apcar le|ngth reg|
|00000ae0| 65 78 70 2d 6f 70 74 2d | 63 68 61 72 73 65 74 20 |exp-opt-|charset |
|00000af0| 74 72 79 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 6c |try-comp|letion l|
|00000b00| 69 73 74 20 28 22 5e 2e | 24 22 29 20 63 6f 6d 70 |ist ("^.|$") comp|
|00000b10| 6c 65 74 69 6f 6e 2d 72 | 65 67 65 78 70 2d 6c 69 |letion-r|egexp-li|
|00000b20| 73 74 20 61 6c 6c 2d 63 | 6f 6d 70 6c 65 74 69 6f |st all-c|ompletio|
|00000b30| 6e 73 20 6c 65 74 74 65 | 72 73 20 70 72 65 66 69 |ns lette|rs prefi|
|00000b40| 78 20 23 5b 28 73 29 20 | 22 08 09 c2 4f 87 22 20 |x #[(s) |"...O." |
|00000b50| 5b 73 20 6c 65 6e 67 74 | 68 20 6e 69 6c 5d 20 33 |[s lengt|h nil] 3|
|00000b60| 5d 20 73 75 66 66 69 78 | 65 73 20 28 22 5e 2e 2e |] suffix|es ("^..|
|00000b70| 2b 24 22 29 20 72 65 73 | 74 20 6e 69 6c 20 22 5c |+$") res|t nil "\|
|00000b80| 5c 7c 22 20 63 68 61 72 | 20 68 61 6c 66 31 20 68 |\|" char| half1 h|
|00000b90| 61 6c 66 32 5d 20 39 5d | 29 0a 28 64 65 66 61 6c |alf2] 9]|).(defal|
|00000ba0| 69 61 73 20 27 72 65 67 | 65 78 70 2d 6f 70 74 2d |ias 'reg|exp-opt-|
|00000bb0| 63 68 61 72 73 65 74 20 | 23 5b 28 63 68 61 72 73 |charset |#[(chars|
|00000bc0| 29 20 22 c0 19 c2 09 c3 | 5c 22 1c c5 1e 06 c5 1e |) ".....|\"......|
|00000bd0| 07 c5 1e 08 c5 1e 09 ca | cb 0e 0c 5c 22 cd 1e 0e |........|...\"...|
|00000be0| 89 1e 0f ab b3 0e 0f 40 | 89 16 0e d0 61 ab 85 d1 |.......@|....a...|
|00000bf0| 16 07 aa 9c 0e 0e d2 61 | ab 85 d3 16 09 aa 91 0e |.......a|........|
|00000c00| 0e d4 61 ab 85 d5 16 08 | aa 86 0c 0e 0e d6 49 88 |..a.....|......I.|
|00000c10| 0e 0f 41 89 16 0f ac 4d | 2a 09 c3 1e 0e 1e 17 0e |..A....M|*.......|
|00000c20| 0e 0e 17 57 ab cd 0e 0e | 1e 18 0e 0e 09 57 ab 90 |...W....|.....W..|
|00000c30| 0c 0e 0e 48 c3 55 ac 88 | 0e 0e 54 89 16 0e aa 6c |...H.U..|..T....l|
|00000c40| 0e 0e 0e 18 d9 5c 5c 56 | ab 8e da db 0e 06 0e 18 |.....\\V|........|
|00000c50| 0e 0e 53 24 16 06 aa 93 | 0e 0e 0e 18 56 ab 8c da |..S$....|....V...|
|00000c60| dc 0e 06 0e 18 89 16 0e | 23 16 06 29 0e 0e 54 89 |........|#..)..T.|
|00000c70| 16 0e aa 2e 2a 0e 06 c5 | 98 ab 8f 0e 07 c5 98 ab |....*...|........|
|00000c80| 89 dd 0e 08 0e 09 d1 52 | aa 8c dd 0e 07 0e 06 0e |.......R|........|
|00000c90| 09 0e 08 d1 b0 06 2e 06 | 87 22 20 5b 32 35 36 20 |........|." [256 |
|00000ca0| 63 68 61 72 77 69 64 74 | 68 20 6d 61 6b 65 2d 62 |charwidt|h make-b|
|00000cb0| 69 74 2d 76 65 63 74 6f | 72 20 30 20 63 68 61 72 |it-vecto|r 0 char|
|00000cc0| 6d 61 70 20 22 22 20 63 | 68 61 72 73 65 74 20 62 |map "" c|harset b|
|00000cd0| 72 61 63 6b 65 74 20 64 | 61 73 68 20 63 61 72 65 |racket d|ash care|
|00000ce0| 74 20 6d 61 70 63 61 72 | 20 73 74 72 69 6e 67 2d |t mapcar| string-|
|00000cf0| 74 6f 2d 63 68 61 72 20 | 63 68 61 72 73 20 6e 69 |to-char |chars ni|
|00000d00| 6c 20 63 68 61 72 20 2d | 2d 64 6f 6c 69 73 74 2d |l char -|-dolist-|
|00000d10| 74 65 6d 70 2d 2d 38 37 | 37 30 30 20 3f 5c 5d 20 |temp--87|700 ?\] |
|00000d20| 22 5d 22 20 3f 5e 20 22 | 5e 22 20 3f 5c 2d 20 22 |"]" ?^ "|^" ?\- "|
|00000d30| 2d 22 20 31 20 2d 2d 64 | 6f 74 69 6d 65 73 2d 74 |-" 1 --d|otimes-t|
|00000d40| 65 6d 70 2d 2d 38 37 37 | 30 31 20 73 74 61 72 74 |emp--877|01 start|
|00000d50| 20 33 20 66 6f 72 6d 61 | 74 20 22 25 73 25 63 2d | 3 forma|t "%s%c-|
|00000d60| 25 63 22 20 22 25 73 25 | 63 22 20 22 5b 22 5d 20 |%c" "%s%|c" "["] |
|00000d70| 36 5d 29 0a 28 70 72 6f | 76 69 64 65 20 27 72 65 |6]).(pro|vide 're|
|00000d80| 67 65 78 70 2d 6f 70 74 | 29 0a                   |gexp-opt|).      |
+--------+-------------------------+-------------------------+--------+--------+